﻿Public Class BillOfLadingExpoBE

    Dim iKVJE As Integer
    Dim sdesKVJE As String
    Dim iKBLM As Integer
    Dim sTOPE As String
    Dim sNume As String
    Dim sTibl As String
    Dim sLemi As String
    Dim sFemi As String
    Dim sEmba As String
    Dim sCsne As String
    Dim sNoti As String
    Dim sNot2 As String
    Dim sFwdr As String
    Dim sAgad As String
    Dim sLine As String
    Dim sPtoo As String
    Dim sPtoe As String
    Dim sDfin As String
    Dim sDfi2 As String
    Dim sDpte As String
    Dim sDpto As String
    Dim sDptd As String
    Dim sDdfi As String
    Dim sDdf2 As String
    Dim sFomt As String
    Dim sOBSE As String
    Dim dTfpf As Double
    Dim dTfpt As Double
    Dim dTfcf As Double
    Dim sTfct As Double
    Dim sCFLE As String
    Dim iUnid As Integer
    Dim iCsue As Integer
    Dim iPkgs As Integer
    Dim dTafle As Double
    Dim dTathc As Double
    Dim iESTA As Integer
    Dim sAgge As String
    Dim sServ As String
    Dim iNorig As Integer
    Dim sDtot As String
    Dim sLpfp As String
    Dim sLpfc As String
    Dim sTalm As String
    Dim sAgdo As String
    Dim sTdes As String
    Dim sCond As String
    Dim sOpeLog As String
    Dim sCUSU As String
    Dim dTfcfInt As Double
    Dim dTfctInt As Double
    Dim sPtod As String


    'Fletes
    Dim dFleteTarifa As Double
    Dim sFleteUnidad As String
    Dim iFleteCantidad As Integer
    Dim dFleteMontoTarifa As Double
    Dim dFletePC As Integer
    Dim dFleteTotal As Double
    Dim sFleteMoneda As String
    Dim sFleteLugarPago As String
    Dim dFleteInterno As Double
    Dim dFletePrepaidat As Double
    Dim dFletePayableat As Double

    'Contenedor

    Dim sPrefijo As String
    Dim sNumero As String
    Dim sTipo As String
    Dim iPies As Integer
    Dim sLineaInicial As String
    Dim sLineaStock As String
    Dim sCondicion As String
    Dim sTipoPaquete As String
    Dim iCantidad As Integer
    Dim dPesoBrutoCont As Double
    Dim dPesoNeto As Double
    Dim sTara As String
    Dim sVolumenContenedor As String
    Dim sTemp As String
    Dim sUNNO As String
    Dim sCarrier As String
    Dim sShipper As String
    Dim sOtros As String
    Dim sDesOtros As String
    Dim sObservaciones As String
    Dim sEstadoTrans As String
    Dim sViaDesc As String
    Dim sUnidadMedida As String

    ''Aduanas 
    'Dim sEmbarcador As String
    'Dim sConsignatario As String
    'Dim sNotificante As String
    'Dim sPesoBruto As String

    Public Sub New()

    End Sub

#Region "TAB1: Pag.Principal"



    Public Property desKVJE() As String
        Get
            Return sdesKVJE
        End Get
        Set(ByVal value As String)
            sdesKVJE = value
        End Set
    End Property

    Public Property KVJE() As Integer
        Get
            Return iKVJE
        End Get
        Set(ByVal value As Integer)
            iKVJE = value
        End Set
    End Property

    Public Property KBLM() As Integer
        Get
            Return iKBLM
        End Get
        Set(ByVal value As Integer)
            iKBLM = value
        End Set
    End Property

    Public Property TOPE() As String
        Get
            Return sTOPE
        End Get
        Set(ByVal value As String)
            sTOPE = value
        End Set
    End Property

    Public Property Nume() As String
        Get
            Return sNume
        End Get
        Set(ByVal value As String)
            sNume = value
        End Set
    End Property

    Public Property Tibl() As String
        Get
            Return sTibl
        End Get
        Set(ByVal value As String)
            sTibl = value
        End Set
    End Property

    Public Property Lemi() As String
        Get
            Return sLemi
        End Get
        Set(ByVal value As String)
            sLemi = value
        End Set
    End Property

    Public Property Femi() As String
        Get
            Return sFemi
        End Get
        Set(ByVal value As String)
            sFemi = value
        End Set
    End Property

    Public Property Emba() As String
        Get
            Return sEmba
        End Get
        Set(ByVal value As String)
            sEmba = value
        End Set
    End Property

    Public Property Csne() As String
        Get
            Return sCsne
        End Get
        Set(ByVal value As String)
            sCsne = value
        End Set
    End Property

    Public Property Noti() As String
        Get
            Return sNoti
        End Get
        Set(ByVal value As String)
            sNoti = value
        End Set
    End Property

    Public Property Not2() As String
        Get
            Return sNot2
        End Get
        Set(ByVal value As String)
            sNot2 = value
        End Set
    End Property

    Public Property Fwdr() As String
        Get
            Return sFwdr
        End Get
        Set(ByVal value As String)
            sFwdr = value
        End Set
    End Property

    Public Property Agad() As String
        Get
            Return sAgad
        End Get
        Set(ByVal value As String)
            sAgad = value
        End Set
    End Property

    Public Property Line() As String
        Get
            Return sLine
        End Get
        Set(ByVal value As String)
            sLine = value
        End Set
    End Property

    Public Property Ptoo() As String
        Get
            Return sPtoo
        End Get
        Set(ByVal value As String)
            sPtoo = value
        End Set
    End Property

    Public Property Ptoe() As String
        Get
            Return sPtoe
        End Get
        Set(ByVal value As String)
            sPtoe = value
        End Set
    End Property

    Public Property Dfin() As String
        Get
            Return sDfin
        End Get
        Set(ByVal value As String)
            sDfin = value
        End Set
    End Property

    Public Property Dfi2() As String
        Get
            Return sDfi2
        End Get
        Set(ByVal value As String)
            sDfi2 = value
        End Set
    End Property

    Public Property Dpte() As String
        Get
            Return sDpte
        End Get
        Set(ByVal value As String)
            sDpte = value
        End Set
    End Property

    Public Property Dpto() As String
        Get
            Return sDpto
        End Get
        Set(ByVal value As String)
            sDpto = value
        End Set
    End Property


    Public Property Dptd() As String
        Get
            Return sDptd
        End Get
        Set(ByVal value As String)
            sDptd = value
        End Set
    End Property


    Public Property Ddfi() As String
        Get
            Return sDdfi
        End Get
        Set(ByVal value As String)
            sDdfi = value
        End Set
    End Property


    Public Property Ddf2() As String
        Get
            Return sDdf2
        End Get
        Set(ByVal value As String)
            sDdf2 = value
        End Set
    End Property


    Public Property Fomt() As String
        Get
            Return sFomt
        End Get
        Set(ByVal value As String)
            sFomt = value
        End Set
    End Property


    Public Property OBSE() As String
        Get
            Return sOBSE
        End Get
        Set(ByVal value As String)
            sOBSE = value
        End Set
    End Property

    Public Property Tfpf() As Double
        Get
            Return dTfpf
        End Get
        Set(ByVal value As Double)
            dTfpf = value
        End Set
    End Property


    Public Property Tfpt() As Double
        Get
            Return dTfpt
        End Get
        Set(ByVal value As Double)
            dTfpt = value
        End Set
    End Property


    Public Property Tfcf() As Double
        Get
            Return dTfcf
        End Get
        Set(ByVal value As Double)
            dTfcf = value
        End Set
    End Property


    Public Property Tfct() As String
        Get
            Return sTfct
        End Get
        Set(ByVal value As String)
            sTfct = value
        End Set
    End Property


    Public Property CFLE() As String
        Get
            Return sCFLE
        End Get
        Set(ByVal value As String)
            sCFLE = value
        End Set
    End Property


    Public Property Unid() As Integer
        Get
            Return iUnid
        End Get
        Set(ByVal value As Integer)
            iUnid = value
        End Set
    End Property


    Public Property Csue() As Integer
        Get
            Return iCsue
        End Get
        Set(ByVal value As Integer)
            iCsue = value
        End Set
    End Property

    Public Property Pkgs() As Integer
        Get
            Return iPkgs
        End Get
        Set(ByVal value As Integer)
            iPkgs = value
        End Set
    End Property

    Public Property Tafle() As String
        Get
            Return dTafle
        End Get
        Set(ByVal value As String)
            dTafle = value
        End Set
    End Property

    Public Property Tathc() As String
        Get
            Return dTathc
        End Get
        Set(ByVal value As String)
            dTathc = value
        End Set
    End Property

    Public Property ESTA() As Integer
        Get
            Return iESTA
        End Get
        Set(ByVal value As Integer)
            iESTA = value
        End Set
    End Property

    Public Property Agge() As String
        Get
            Return sAgge
        End Get
        Set(ByVal value As String)
            sAgge = value
        End Set
    End Property

    Public Property Serv() As String
        Get
            Return sServ
        End Get
        Set(ByVal value As String)
            sServ = value
        End Set
    End Property

    Public Property Norig() As Integer
        Get
            Return iNorig
        End Get
        Set(ByVal value As Integer)
            iNorig = value
        End Set
    End Property

    Public Property Dtot() As String
        Get
            Return sDtot
        End Get
        Set(ByVal value As String)
            sDtot = value
        End Set
    End Property

    Public Property Lpfp() As String
        Get
            Return sLpfp
        End Get
        Set(ByVal value As String)
            sLpfp = value
        End Set
    End Property

    Public Property Lpfc() As String
        Get
            Return sLpfc
        End Get
        Set(ByVal value As String)
            sLpfc = value
        End Set
    End Property

    Public Property Talm() As String
        Get
            Return sTalm
        End Get
        Set(ByVal value As String)
            sTalm = value
        End Set
    End Property

    Public Property Agdo() As String
        Get
            Return sAgdo
        End Get
        Set(ByVal value As String)
            sAgdo = value
        End Set
    End Property

    Public Property Tdes() As String
        Get
            Return sTdes
        End Get
        Set(ByVal value As String)
            sTdes = value
        End Set
    End Property

    Public Property Cond() As String
        Get
            Return sCond
        End Get
        Set(ByVal value As String)
            sCond = value
        End Set
    End Property

    Public Property OpeLog() As String
        Get
            Return sOpeLog
        End Get
        Set(ByVal value As String)
            sOpeLog = value
        End Set
    End Property

    Public Property CUSU() As String
        Get
            Return sCUSU
        End Get
        Set(ByVal value As String)
            sCUSU = value
        End Set
    End Property

    Public Property TfcfInt() As Double
        Get
            Return dTfcfInt
        End Get
        Set(ByVal value As Double)
            dTfcfInt = value
        End Set
    End Property

    Public Property TfctInt() As Double
        Get
            Return dTfctInt
        End Get
        Set(ByVal value As Double)
            dTfctInt = value
        End Set
    End Property

    Public Property Ptod() As String
        Get
            Return sPtod
        End Get
        Set(ByVal value As String)
            sPtod = value
        End Set
    End Property



#End Region



#Region "TAB3: Flete"


    Public Property FleteTarifa() As Double
        Get
            Return dFleteTarifa
        End Get
        Set(ByVal value As Double)
            dFleteTarifa = value
        End Set
    End Property

    Public Property FleteUnidad() As String
        Get
            Return sFleteUnidad
        End Get
        Set(ByVal value As String)
            sFleteUnidad = value
        End Set
    End Property

    Public Property FleteCantidad() As Integer
        Get
            Return iFleteCantidad
        End Get
        Set(ByVal value As Integer)
            iFleteCantidad = value
        End Set
    End Property

    Public Property FleteMontoTarifa() As Double
        Get
            Return dFleteMontoTarifa
        End Get
        Set(ByVal value As Double)
            dFleteMontoTarifa = value
        End Set
    End Property

    Public Property FletePC() As Double
        Get
            Return dFletePC
        End Get
        Set(ByVal value As Double)
            dFletePC = value
        End Set
    End Property

    Public Property FleteTotal() As Double
        Get
            Return dFleteTotal
        End Get
        Set(ByVal value As Double)
            dFleteTotal = value
        End Set
    End Property

    Public Property FleteMoneda() As String
        Get
            Return sFleteMoneda
        End Get
        Set(ByVal value As String)
            sFleteMoneda = value
        End Set
    End Property

    Public Property FleteLugarPago() As String
        Get
            Return sFleteLugarPago
        End Get
        Set(ByVal value As String)
            sFleteLugarPago = value
        End Set
    End Property

    Public Property FleteInterno() As Double
        Get
            Return dFleteInterno
        End Get
        Set(ByVal value As Double)
            dFleteInterno = value
        End Set
    End Property

    Public Property FletePrepaidat() As Double
        Get
            Return dFletePrepaidat
        End Get
        Set(ByVal value As Double)
            dFletePrepaidat = value
        End Set
    End Property

    Public Property FletePayableat() As Double
        Get
            Return dFletePayableat
        End Get
        Set(ByVal value As Double)
            dFletePayableat = value
        End Set
    End Property




#End Region

#Region "TAB4: Contenedor"

    Public Property Prefijo() As String
        Get
            Return sPrefijo
        End Get
        Set(ByVal value As String)
            sPrefijo = value
        End Set
    End Property

    Public Property Numero() As String
        Get
            Return sNumero
        End Get
        Set(ByVal value As String)
            sNumero = value
        End Set
    End Property

    Public Property Tipo() As String
        Get
            Return sTipo
        End Get
        Set(ByVal value As String)
            sTipo = value
        End Set
    End Property

    Public Property Pies() As String
        Get
            Return iPies
        End Get
        Set(ByVal value As String)
            iPies = value
        End Set
    End Property

    Public Property LineaInicial() As String
        Get
            Return sLineaInicial
        End Get
        Set(ByVal value As String)
            sLineaInicial = value
        End Set
    End Property

    Public Property LineaStock() As String
        Get
            Return sLineaStock
        End Get
        Set(ByVal value As String)
            sLineaStock = value
        End Set
    End Property

    Public Property Condicion() As String
        Get
            Return sCondicion
        End Get
        Set(ByVal value As String)
            sCondicion = value
        End Set
    End Property

    Public Property TipoPaquete() As String
        Get
            Return sTipoPaquete
        End Get
        Set(ByVal value As String)
            sTipoPaquete = value
        End Set
    End Property

    Public Property Cantidad() As Integer
        Get
            Return iCantidad
        End Get
        Set(ByVal value As Integer)
            iCantidad = value
        End Set
    End Property

    Public Property PesoBrutoCont() As Double
        Get
            Return dPesoBrutoCont
        End Get
        Set(ByVal value As Double)
            dPesoBrutoCont = value
        End Set
    End Property

    Public Property PesoNeto() As Double
        Get
            Return dPesoNeto
        End Get
        Set(ByVal value As Double)
            dPesoNeto = value
        End Set
    End Property

    Public Property Tara() As String
        Get
            Return sTara
        End Get
        Set(ByVal value As String)
            sTara = value
        End Set
    End Property

    Public Property VolumenContenedor() As String
        Get
            Return sVolumenContenedor
        End Get
        Set(ByVal value As String)
            sVolumenContenedor = value
        End Set
    End Property

    Public Property Temp() As String
        Get
            Return sTemp
        End Get
        Set(ByVal value As String)
            sTemp = value
        End Set
    End Property

    Public Property UNNO() As String
        Get
            Return sUNNO
        End Get
        Set(ByVal value As String)
            sUNNO = value
        End Set
    End Property

    Public Property Carrier() As String
        Get
            Return sCarrier
        End Get
        Set(ByVal value As String)
            sCarrier = value
        End Set
    End Property

    Public Property Shipper() As String
        Get
            Return sShipper
        End Get
        Set(ByVal value As String)
            sShipper = value
        End Set
    End Property

    Public Property Otros() As String
        Get
            Return sOtros
        End Get
        Set(ByVal value As String)
            sOtros = value
        End Set
    End Property

    Public Property DesOtros() As String
        Get
            Return sDesOtros
        End Get
        Set(ByVal value As String)
            sDesOtros = value
        End Set
    End Property

    Public Property EstadoTrans() As String
        Get
            Return sEstadoTrans
        End Get
        Set(ByVal value As String)
            sEstadoTrans = value
        End Set
    End Property

    Public Property ViaDesc() As String
        Get
            Return sViaDesc
        End Get
        Set(ByVal value As String)
            sViaDesc = value
        End Set
    End Property

    Public Property Observaciones() As String
        Get
            Return sObservaciones
        End Get
        Set(ByVal value As String)
            sObservaciones = value
        End Set
    End Property

#End Region







End Class
